home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / demo / mag / trash3_2.lha / fuentes / FuentesFXC2P.lha / FXC2P.Punto < prev   
Text File  |  1992-09-02  |  566b  |  29 lines
  1.  
  2. * FX_Punto
  3. * Rutina para pintar puntos en PVC para FX_C2P
  4. * Programado y optimizado por Xele/Odrusba
  5. ;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  6. ; D0.B        = Color del punto
  7. ; D1.W        = X
  8. ; D2.W        = Y
  9. ; A5.L        = PVC
  10. ; A6.L        = FX_Tabla
  11.  
  12. FX_Punto    ;SUBRUTINA
  13.  
  14.     movem.l    d1-d3/a5,-(sp)
  15.     
  16.     moveq    #0,d3
  17.     move.w    d2,d3
  18.     lsl.w    #8,d2
  19.     lsl.w    #6,d3
  20.     add.l    d3,d2            ;D2 = (320 * Y)
  21.     move.w    (a6,d1.w*2),d3        ;D3 = Tabla[X]
  22.     add.w    d3,d2            ;Offset ajustado
  23.     add.l    d2,a5
  24.     move.b    d0,(a5)
  25.  
  26.     movem.l    (sp)+,d1-d3/a5
  27.  
  28.     rts    ;FINSUB
  29.